home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Demo / MacToPic Plus 8.8.0 Demo.sea / MacToPic +™ Demo / Plus sample programs / MASTER XFER PROC < prev    next >
Text File  |  1994-11-02  |  1KB  |  73 lines
  1. PQ
  2. C
  3. C  This PROC eliminates the need to write a new PROC
  4. C  each time you want to transfer data from your Host to the Mac
  5. C  in the Convert to Spreadsheet/Database mode.
  6. C
  7. C  It prompts the operator to enter the PICK file name, item names
  8. C  and other options.
  9. C
  10. C  It then builds a LIST-LABEL statement and executes it.
  11. C
  12. C  THIS PROC WORKS FOR HOST-TO-MAC DATA TRANSFER
  13. C  WITH MAC-TO-PIC
  14. C
  15. C  Thanks to Beena of Boston University for the original PROC
  16. C
  17. T C
  18. O
  19. STOFF
  20. RO
  21. RI
  22. HSLEEP
  23. P
  24. IH¥
  25. C
  26. O
  27. O  ENTER NAME OF THE FILE TO ACCESS FOR DATA TRANSFER +
  28. S1
  29. IH¥
  30. IP
  31. O
  32. O  ENTER ATTRIBUTES TO BE ACCESSED SEPARATED BY SEMICOLONS +
  33. S2
  34. IH¥
  35. IP
  36. O
  37. O  ENTER THE NUMBER OF FIELDS PER RECORD     IN NUMBERS +
  38. S3
  39. IH¥
  40. IP
  41. O
  42. O  TYPE <Y> TO DO A 'GET-LIST' <N/CR> TO SKIP +
  43. S4
  44. IH¥
  45. IP
  46. IF A4 # Y GO 100
  47. O
  48. O  ENTER THE NAME OF LIST TO RETRIEVE +
  49. S5
  50. IH¥
  51. IP
  52. HGET-LIST
  53. A5
  54. STON
  55. H<
  56. P
  57. 100 C ***
  58. HLIST-LABEL ONLY
  59. A1
  60. A2
  61. H ID-SUPP COL-HDR-SUPP
  62. STON
  63. H1,
  64. A3
  65. H,
  66. H1,0,45,0
  67. T C
  68. O
  69. O  Select Host-To-Mac Transfer from the File Menu
  70. O  and enter the number of fields per record (no command is necessary)
  71. O
  72. PW
  73.